object RPPreviewForm: TRPPreviewForm
  Left = 293
  Top = 166
  Width = 615
  Height = 450
  Caption = 'Report Preview'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 607
    Height = 41
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object SBZoomIn: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Zoom In'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      OnClick = SBZoomInClick
    end
    object SBZoomOut: TSpeedButton
      Left = 32
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Zoom Out'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
        333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
        33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
        333337F3333337F333333078F8F870333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      OnClick = SBZoomOutClick
    end
    object Label1: TLabel
      Left = 209
      Top = 8
      Width = 48
      Height = 16
      Caption = 'Zoom %'
    end
    object SBPrevPage: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Prev Page'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FF333333333333
        3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
        E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
        E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
        E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
        000033333373FF77777733333330003333333333333777333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = SBPrevPageClick
    end
    object SBNextPage: TSpeedButton
      Left = 128
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Next Page'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
      OnClick = SBNextPageClick
    end
    object Label2: TLabel
      Left = 326
      Top = 8
      Width = 41
      Height = 16
      Caption = 'Page #'
    end
    object SBDone: TSpeedButton
      Left = 176
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Done'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F33330000000000033333777777777773330000}
      NumGlyphs = 2
      OnClick = SBDoneClick
    end
    object SBPrint: TSpeedButton
      Left = 152
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Print'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      OnClick = SBPrintClick
    end
    object SBZoomPageWidth: TSpeedButton
      Left = 56
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Zoom Page Width'
      Glyph.Data = {
        90010000424D9001000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0050FFFFFFFFFF
        FF0558F5FFFFFFF5558F50F0000000FFFF0558F888888855558F50FFFFFFFFFF
        FF0558F5FFFFFFFFFF8F50F0000000000F0558F888888888858F50FFFFFFFFFF
        FF0558F5FFFFFF5FFF8F50F000000F00000558F888888588888550FFFFFFFF0F
        F05558F5FFFFFF8FF85550F000000F0F055558F88888858F855550FFFFFFFF00
        555558FFFFFFFF88555550000000000555555888888888855555555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        5555555555555555555555555555555555555555555555555555000000000000
        0000000000000000000000000000000000000000}
      NumGlyphs = 2
      OnClick = SBZoomPageWidthClick
    end
    object SBZoomPage: TSpeedButton
      Left = 80
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Zoom Whole Page'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF
        0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000
        0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005
        5555557FFFFF7755555555500000005555555577777775555555555555555555
        55555555555555555555555555555555555555555555555555550000}
      NumGlyphs = 2
      OnClick = SBZoomPageClick
    end
    object PageLabel: TLabel
      Left = 431
      Top = 8
      Width = 66
      Height = 16
      Caption = 'Page 1 of 1'
    end
    object ZoomEdit: TEdit
      Left = 260
      Top = 8
      Width = 57
      Height = 24
      TabOrder = 1
      OnExit = ZoomEditExit
      OnKeyDown = FormKeyDown
      OnKeyPress = ZoomEditKeyPress
    end
    object PageEdit: TEdit
      Left = 372
      Top = 8
      Width = 49
      Height = 24
      TabOrder = 0
      OnExit = PageEditExit
      OnKeyDown = FormKeyDown
      OnKeyPress = PageEditKeyPress
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 41
    Width = 607
    Height = 382
    Align = alClient
    TabOrder = 1
  end
  object FilePrinter1: TFilePrinter
    FileName = 'RPTEST.RPT'
    StreamMode = smFile
    Left = 536
    Top = 8
  end
  object FilePreview1: TFilePreview
    FileName = 'RPTEST.RPT'
    StreamMode = smFile
    ScrollBox = ScrollBox1
    ZoomFactor = 100.000000000000000000
    MarginPercent = 5.000000000000000000
    RulerType = rtBothIn
    ShadowDepth = 0
    OnZoomChange = FilePreview1ZoomChange
    OnPageChange = FilePreview1PageChange
    Left = 568
    Top = 8
  end
end